home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Guide.dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  1.4 KB  |  49 lines
  1. global gqtvrinstance, glasttimerollover, ossprite, objfile, guidenumber, gcounter
  2.  
  3. on movieframescript pspritenum
  4.   if rollOver(pspritenum) then
  5.     if qtvrgetvisible(gqtvrinstance) then
  6.       if isqtvrmovie(gqtvrinstance) then
  7.         set tmouseoverresult to qtvrmouseover(gqtvrinstance)
  8.         if tmouseoverresult <> 0 then
  9.           set taction to item 1 of tmouseoverresult
  10.           case taction of
  11.             "undf":
  12.               put "[#GuideNumber:" && guidenumber & ", #gCounter:" && gcounter - 1 & ", #Flag: 1]" into field "Guide Location"
  13.               put objfile into field "Current Object"
  14.               go(1, "Object")
  15.               abort()
  16.             "pan ":
  17.               set the movieRate of sprite ossprite to 0
  18.               checkpanpoint()
  19.           end case
  20.           set glasttimerollover to 1
  21.         else
  22.           if rollOver(pspritenum) then
  23.             set glasttimerollover to 1
  24.           else
  25.             cursor(200)
  26.             cursor(-1)
  27.             set glasttimerollover to 0
  28.           end if
  29.         end if
  30.       end if
  31.     else
  32.       if glasttimerollover then
  33.         cursor(200)
  34.         cursor(-1)
  35.         set glasttimerollover to 0
  36.       end if
  37.     end if
  38.   else
  39.     if glasttimerollover then
  40.       cursor(200)
  41.       cursor(-1)
  42.       set glasttimerollover to 0
  43.     end if
  44.   end if
  45.   if isqtvrmovie(gqtvrinstance) then
  46.     qtvridle(gqtvrinstance)
  47.   end if
  48. end
  49.